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DECnet Ethernet Configurator Module 18-Sep-1984 06:03:37 AX-11 TOA Ee I OD et od 


14-Sep-1 
ZTITLE ‘DECnet Ethernet Configurator Module’ 
MODULE CNF SHOW 
LANGUAGE COL 18830) « 
{DENT = 'v04-000' 


4 NICNF. 


BEGIN 


' 
eRe R RARE RRR ERAAAERAER AREA AREA AEA EAE A ETAT TEAR ERAARAAAAREARERA EE 


* 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. + 
ie ALL RIGHTS RESERVED. * 
. ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TER SUCH LICENSE AND WITH THE 
PRO . 

i R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY * 
ie TRANSFERRED. * 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. « 
® 

® 

® 

* 

® 

* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DECnet Configurator Module (NICONFIG) 


ABSTRACT: 


This module contains the routines to return information on a 
SHOW request generated by an NCP> SHOW MODULE CONFIGUTOR command. 


i 
; 

i 

i 

{ 

ENVIRONMENT: VAX/VMS Operating System 

AUTHOR: Bob Grosso, CREATION DATE: 13-Oct-1982 
MODIFIED BY: 

; 


: EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
! Module CNFMAIN 


89 


CNFSEXIT ' Clean up and exit 
CNFSTRACE, ' Log wogsages to log file 
CNFSFREE_VM Free virtual memory 


CNFSGET_ZVM. 
! Module CNFREQUES 


Get zeroed virtual memory 


a 
MEW —OOCOno 
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CNF SHOW DECnet Ethernet Configurator Module 16-Sep-1984 02:05:37 AX-11 Bliss-32 V4.0-74 Page 
v04-000 Bofinitions 7 12286071382 95:03 :8 NICNF RC TENT SHOW O30¢4 ° ( 
; 6349 48 1 2SBTTL ‘Definitions’ 
3 0 49 1 
; 1 2 1! 
3 ¢ 051 1 ! INCLUDE FILES: 
a $8g 
3 $5 084 \ LIBRARY ‘SYSSLIBRARY:STARLET'; ! VMS common definitions 
3 37 0056 1 LIBRARY ‘SHRLIBS:NMALIBRY'; ! NICE code definitions 
3 59 0058 1 REQUIRE "LIBS:CNFDEF.R32'; 
; 60 8132 1 
; 6) 420 1 REQUIRE 'SRCS$:CNFPREFIX.REQ'; 
; 6¢ 47 1 
; 6 48 1 
: 664 49 1! 
:; 69 0250 1 ! BUILTIN functions 
; 8666 0251 1! 
a Or 0 26 1 
; 0253 1 BUILTIN 
3 +4 8 $2 ! SUBM; ! To support quadword subtraction 
3 71 0956 1 LITERAL 
: 7 025 1 NICE_BUFLEN = 128; 
a) 0258 1 
; | 674 0259 1! 
3 75 0260 1 ! TABLE OF CONTENTS: 
- 0261 1! 
ae és 8 $6 1 
; % 8 ° ! FORWARD ROUTINE 
; ww 0265 1 PROCESS_ SHOW, ! Cover routine for common error handling of SHOW processing 
; 8B be66 1 SHOW_CIRCUIT, ' Format circuit info 
—. & 0267 1 SHOW_SYSTEM; ! Format info for a system ID message. 
; §& osee 1 
s 684 0269 1! 
3 8 70 1 
3 71 ~«#1 
3 0 i 1 
: 3 + 
3 7%4~«(«&WI 
3 75 «1 
3 1 
3 77,=«1 
3 1 
: 1 
3 1 
3 1 
: 1 
3 1 
3 1 
$ 1 
3 1 
: 1 
3 1 
; 8 1 
3 1 
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’ CNFSLOCATE_CIR_BLK, ! Locate circuit block from circuit name 
} ! Module CWFSEND 

1 CNF SBUFR_NICE_MSG, ! Buffer NICE response messages 

: CNF SBUFR_ERR_ASG; ! Buffer NICE error responses 


NTCNF  SkcSENP SHOW: 83214 
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! List of circuits under surveillance 
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CNF SHOW et Ethernet Configurator Module 1b-se 1984 02:05:37 AX-11 Bliss-32 V4.0-74 Pa 4 
v04-000 PROCESS_SHOW Search the data base and for 1 30071382 95:05 :8, NICNF..SRCJCNFSHOW.832; ” (3) 

ZSBTTL iti rake SHOW Search the data base and format a response message’ 

GLOBAL ROUTINE CNFSPROCESS_SHOW (IRB, KNOWN, CIRCUITNAM_DSC, INFTYP) = 

+ 

: 

1 


Shell routine to supply a common entrance and error exit to the 
routine which builds the 


FORMAL PARAMETERS: 


SHOW message. 


irb Interrupt request block, contains context for returning 
responses to connectee. 
known Was SHOW KNOWN CIRCUITS requested? 


circuitnam.dsc Descriptor of circuit name if SHOW was requested for 
a specific circuit. 


inftyp Code determining which information type was requested 
for the SHOW, either CHARACTERISTICS, SUMMARY or STATUS. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 
Always success, errors are buffered for return to connectee. 


SIDE EFFECTS: 
NONE 


PARA MNMAMNMNNMM NIT BB EB EEE PWN 


ion 


Ooo 


STATUS; 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(' TRACE), 
SDESCRIPTOR T'CNFSPROCESS_SHOW')); 


WWWIAIAA AAA AAW NWN AAA ANA AAAI A NIWA oem 


PDA AAAI EB EE BE EE AAAI AIP NPI SS STOO 


wd 


Send MORE message 
MECUTE (CNFSBUFR_NICE_MSG (.IRB, NICE_MORE_DSC, 0)); 


WIN 9 ODNAUNE WN @§ OOOO UE WN $$ O OONOAUEWN (OO ONOUE WIN "OWOONOU 5 
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Request that the SHOW information be gathered, formatted and buffered. 
TATUS = PROCESS_SHOW (.IRB, .KNOWN, .CIRCUITNAM_DSC, .INFTYP); 
NOT .STATUS 
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N 
CNFSBUFR_ERR_MSG (.IRB, NMASC_STS_MPR, 0, .STATUS); 
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FUNCTIONAL DESCRIPTION: 
| 
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CNF SHOW 
Vv04-000 
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SHOW Search the data base and for 12-868-1 388 95:03:87 NICNE. SROTENF SHOW. B3ae4 — ( 3 
] 
i 


fs 
ve 
ze 
oO 
Ps 
“e 


Send DONE message 
EXECUTE (CNFSBUFR_NICE_MSG (.IRB, NICE_DONE_DSC, 0)); 
RETURN TRUE; 
END; 


Sete esteeeses 
——> —) as 4 3 
000000 
OwOc 
WAWNAN 

SSNS OOO 
CONANT 


! Routine CNFSPROCESS_SHOW 


“TeTLS CNFSHOW DECnet Ethernet Configurator Module 


" \vV04-000\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
80 00000 P.AAA: .BYTE <-128 : 
44 BLKB 
62 004 P.AAB: .BYTE : 
FFFF 008 «WORD 1 3 
g BS -—BYTE 0 $ 
45 43 41 52 54 08 P.AAD: .ASCII \TRACE\ 3 
000D -BLKB 
00000005 00010 P.AAC: .LONG 3 
sae te 9 eb -ADDRESS P.AAD $ 
4F 48 53 SF 53 53 45 43 GF 52 50 246 46 4E 33 00018 P.AAF: .ASCII \CNFSPROCESS_SHOW\ ; 
00000010 09028 P.AAE ~LONG 16 3 
00000000° 0002C ADDRESS P.AAF F 


-PSECT SOWNS,NOEXE,2 
00000001 00000 NICE_DONE DSC: 


«LONG 1 3 
00000000 00004 "ADDRESS P.AAA : 
00000004 00008 NICE_MORE DSC: : 
00000000' 0000¢ “ADDRESS P.AAB : 


.EXTRN CNFSEXIT, CNFSTRACE 
eEXTRN CNFSFREE_VM, CNFSGET_ZVM 
“EXTRN CNFSLOCATE_CIR_BLK 
-EXTRN CNFSBUFR_NICE_ ASG 

“EXTRN CNFSBUFR-ERR_ASG 

TEXTRN CNF$GQ_CIRSURLST 

.PSECT $CODES,NOWRT,2 
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0090 90 .ENTRY CNFSPROCESS_SHOW, Save nothing : 0316 
9006" CF 9F 0000 PUSHAB P.AAE : 0357 
O° CF OF PUSHAB P.AAC > 0356 
} DD A PUSHL ai : 
00006 CF FB CALLS #3, CNFSTRACE ; 
E CLRL 0s = §P) + 0362 
0090" CF 9F 0001 PUSHAB WNICE_MORE_DSC ; 
4 AC DD 0001 PUSHL IR : 
00006 CF Q FB 1A CALLS #3 CNF SBUFR_NICE_MSG ; 
3 5 1F BLBC STATUS ; 
E 0c AC 7d 00022 MOVG CIRCUITNAM_DSC, -(SP) : 0367 


2 
Ethernet Configurator Module 18- ep-1 AX-11 Bliss-32 V4.0-74 Page 6 
CESS_ SHOW Search the data base and for 1 at 7 95: 93: i NICNF.SR RCIEN CNFSHOW.B832; ° (3) 
7E 04 AC 7D 00026 MOV IRB, =(SP) : : 
0000v cr 4 re 6 A CALLS #4, PROCESS_SHOW : : 
F 0 E F BLBS STATUS, 1$ ~ + 0368 : 
DD 00032 PUSHL SrATy S : 0370 : 
D4 09 4 CLRL (SP) : 
7E 05 CE 000 6 WNEGL #5, =(SP) : 
04 AC 0D 000 PUSHL : 
00006 CF 04 FB 00 ¢ CALLS #4, CNFSBUFR_ERR_MSG : 
E D4 00041 1$ CLRL = §P + 0375 
0000' CF 9F 00043 PUSHAB WNICE_DONE_DSC : 
04 AC DD 00047 PUSHL IR : 
00006 CF 08 FB 004A CALLS #3-_CNFSBUFR_NICE_MSG : 
03 E 4F BLBC = STATUS, ; 
50 01 0 0 32 MOVL #1, Reo + 0377 
04 00055 2s: RET : 0378 


3; Routine Size: 86 bytes, Routine Base: S$CODE$ + 0000 
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DECnet Ethernet Configurator Module 16-Sep-1984 02:05:37 AX-11 Bliss-32 V4.0-74 
process_show Search the data base and format 1 30071382 95:03 :8, ENICNE. SRC ENP SHOU O3 004 
1 XSBTTL process show Search the data base and format _a response message’ 
» ROUTINE PROCESS_SHOW (IRB, KNOWN, CIRCUITNAM_DSC, INFTYP) = 
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MEW —OOONOus 


SSSR oooh oe 
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1e4¢ 
! Locate requested circuit or dispatch for all known circuits to 
the routine which will format and buffer the SHOW response. 


irb Interrupt request block, contains context for returning 
responses to connectee. 
known Was SHOW KNOWN CIRCUITS requested? 


circuitnam_dsc Descriptor of circuit name if SHOW was requested for 
a specific circuit. 


inftyp Code foteracaine which information type was requested 
for the SHOW, either CHARACTERISTICS, SUMMARY or STATUS. 


Always return success, any errors will be buffered for return to 
connectee. 


egin 

CIRCUITNAM_DSC : REF BBLOCK; 
LOCAL 

CIR : REF BBLOCK; 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
SDESCRIPTOR T'process_show')); 


Ni 

= .CNF$GQ_CIRSURLST; ' List of circuits under surveillance 

LE 2CIR NEG CNF$GQ_CIRSURLST DO i For the entire List of circuits 

EXECUTE ws CIRCUIT (.IRB, .CIR, .INFTYP)); 

CIR = .CIR CCTRSL_LINKI; ! Ger next circuit in list 
— END; ! While traversing List of circuits 

ELSE 

BEGIN 


i Locate the requested circuit and format the data for it. 
IF CNFSLOCATE_CIR_BLK (.CIRCUITNAM_DSC, CIR) 
EXECUTE (SHOW_CIRCUIT (.IRB, .CIR, .INFTYP)) 
at eincu 


BEGIN ! Oops, th ti 
CF SBUFR_ERR_MSG (, IRB, NMASC_STS_IDE, NRASC_ENT_¢ “en 


N 2 
F SHOW DECnet Ethernet Configurator Module 16-Sep-1984 02:05:37 AX-11 Bliss-32 V4.0-74 p 
04-000 process_show Search the data base and format 122808= 1388 93:08 :8, NICNE .SRCTENE SHOW: B3oe4 _ “a5 

3 4 4 RETURN TRUE; 
$s 3 Spade 

5 43 

$ 42y END; 

440 
8 44) RETURN TRUE; 
9 0442 END; ! Routine process_show 


-PSECT SPLITS,NOWRT ,NOEXE,2 
P.AAH: .ASCII \TRACE\ 


-LONG 
«ADDRESS P.AAH 
P.AAJ: .ASCII \process_show\ 


«LONG 
»ADDRESS P.AAJ 


45 43 41 52 54 68 

08800808 00 

9 0099" 0 

77 6F 68 73 SF 73 73 65 63 6F 0 
00 44149 0 
000000 00 


D 


-PSECT SCODES,NOWRT,2 


0000 00000 PROCESS_SHOW: 
-WORD Save nothing 
UBL2 #4, SP 


SE 04 C2 90002 SUBL ; 
0000' CF SF 0000 PUSHAB P.AAI + 0410 
0000" CF 9F 00009 PUSHAB P.AAG + 0409 
91 DD 9000 PUSHL # ; 
00006 CF 3 FB OOOOF CALLS #3, CNFSTRACE ; 
24 08 AC £9 00014 BLBC ; 9412 
6 00006 CF 00 00018 MOVL  CNFSGQ_CIRSURLST, CIR : 041 
0 00006 CF : 001D 1$: MOVAB CNFS$GQ~CIRSURLST. RO + 0419 
50 oF D1 000 CMPL CIR, RO ; 
45 13 000 BEQL ; 
10 Ac oD 00 PUSHL INFTYP + 0421 
04 AE DD O000cA PUSHL CIR : 
4 AC DD 000 PUSHL IRB ; 
0000v cf Q F 0 CALLS #3, SHOW gIRCUIT ; 
7 E STATUS, 5 ; 
9& OD PUSHL CIR + 042 
é 1 A BRB 1$ : 041 
E oD C 2%: PUSHL SP + 0430 
0c AC DD : PUSHL CIRCUITNAM_DSC ; 
00006 CF 9 FB 4 CALLS #2, CNFSLOCATE_C1R_BLK ; 
12 E a6 LBC —Ss«éiRO, 38 ; 
10 AC DD 0004 PUSHL INFTYP + 0432 
4 AE DD 0004C PUSHL CIR ; 
AC OD F PUSHL IRB ; 
0000v CF Q FB 3 CALLS #3, SHOW gIRCUIT ; 
12 Fs , BLBS STATUS, & : 
oc A pp B 3S: PUSHL ¢ RCUITNAM_DSC > 0435 
7E 0 D ; mova. #3, =(SP) : 
7E CE 0006 MNEGL #9. =(SP) : 
04 AC 0D 00064 PUSHL IRB ; 


3 
VOu=000 process show" Search’ the date base and format 1 3e0-1 984 93:23:82 ENT CAF. Sac SEnPenbu:a3oe4 
00006 gf Be, 000 7 CALLS #5, CNFSBUFR_ERR_MSG 
0 1 OD et 4$: MOVL #1, RO 
04 F 5$: RET 
; Routine Size: 112 bytes, Routine Base: S$CODE$ + 0056 


<oO 


] 
3 | 

CNF SHOW DECnet Ethernet Configurator Module bese -1984 02:05:37 AX-11 Bliss-32 V4.0-742 Page 10 

v04-000 show circuit Format ait systems for circuit 122867 384 95:03 :8, NICNF.SRCICNFSHOW.B32;1 ° (5) 

; 26) 0443 1 XSBTTL ‘show circuit Format all bystens for circuit’ | 

; ° rk: : ROUTINE SHOW_CIRCUIT (IRB, CIR, INFTYP) = 

: 264 0446 1 !+4 

; $2 0447 1! Build the NICE for the SHOW response message and buffer it for 

; 508 Bees : transmission to the connectee. 

; 268 0450 1! irb Interrupt request block, contains context for returning 

; 58° bees : responses to connectee. | 

ele be8$ a cir Address of Circuit control block of circuit SHOW 

; ste bie : } was requested for. 

> 274 0456 1! inftyp Code potereveres which information type was requested 

; sf? ott : for the SHOW, either CHARACTERISTICS, SUMMARY or STATUS. 

3 $76 0459 1! Always return success, any errors will be buffered for return to 

; 2m 0460 1! connectee. 

3 444 0461 1 !-- 

; 280 ery 1 

; 281 04635 2 BEGIN 

; 282 0464 MAP 

; 283 0465 CIR : REF BBLOCK; 

> 284 0466 

3; 235 0467 2 LOCAL 

; 286 0468 2 CURRENT_TIMBUF : BBLOCK (8), ' Buffer to obtain the current syaten time 

; 287 0469 2 DELTA_TIMBUF : BBLOCK (8), ' Buffer to calculate the time difference between the curren 

; 288 0470 2 ' the time surveillance began on the circuit. 

; 289 0471 2 NICE : REF BBLOCK, ' Pointer into the buffer where the NICE message is being bu 

; 290 0472 2 NICE_BUFDSC : BBLOCK COSC$C_S_BLNI, ' Descriptor of NICE message buffer 

; 291 0473 2 NICE_TMPDSC : BBLOCK CDSC$C_S_BLNI, ! Descriptor of NICE Template buffer 

; 292 0474 2 SID : REF BBLOCK ' Pointer to a system ID message 

3 Ser ot 8) 2 TIMBUF : VECTOR (7, WORD]; ! Buffer for converting binary time format to ASCII for NICE 

; 295 0477 $ BIND 

3 4 arte 5 CONF = UPLIT (ZASCIC ‘CONFIGURATOR') : VECTOR C,BYTEJ; ! Module name to place into NICE return 

; 298 0480 § 

; $30 0481 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(*TRACE'), 

: 300 482 2 SDESCRIPTOR T'show_circuit')); 

3; OY 48 § 

; 0484 ! 

; 0485 ! lero the descriptor which will locate the buffer where the NICE response 

3 be pas } will be built, allocate the buffer, and initialize buffer pointer. 

; 306 0488 CHSFILL (0, DSC$C_S_BLN, NICE_TMPDSC); 

; 307 0489 EXECUTE (CNFSGET 2VM (ERE (NICE BUFLEN)D, NICE_TMPDSC CDSCSA_POINTER))); 

: 308 0490 NICE = .NICE_TMPDSC COSCSA_POINTER); 

: 309 0491 

: 10 49 ! 

; 11 49 ' Place Error status | 

3 \ 0494 ; 

; 351 495 : 1 byte return code 

3; 314 49 : bytes error detail 

: 1? rh 44 byte length of error message 

: 1 499 (.NICE) <0, 8> = &x'01'; ! Return code SUCCESS 
| 
J 


we ee BH Oe Se Be Se 


NICE) < 


NICNF.S 
rror detail, SUCCESS 


Format all systems for circuit HO 


SX'FFFF'; 
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5 7s 
NICE) <24, 8> = %X'00'; rror text length 


Copy over the module entity, CONFIGURATOR 


1 arte Length of CONFIGURATOR string 
12 bytes CONFIGURATOR string 


CE) <32, 8> = .CONF (0); ' Length of CONFIGURATOR string 
= .NICE + 5: ! Set pointer to beginning of circuit name 
MOVE |< . CONF 5), CONF [1],_.NICE); 


PDSC CDOSC$W_LENGTH) = 5 + .CONF (OJ); 
: NICE + .CONF (0); } Point to free space in buffer after 


the circuit name which was just copied in 


Copy over Circuit name entity 


2 bytes Circuit entity ID 
1 byte Parameter bye = ASCII 
1 byte Length of circuit name 
n bytes Circuit name 
CE) <0, 16> = NMASC_PCCN_CIR; 
CE) <16, 8> = NMASC"PTY AI; ! Type = ASCII 
CE) <24, 8> = .CIR TCIRSW_CIRNAMLEN); ' Length of Circuit name 
= .NICE + 4; ' Set gotnter to beginning of circuit name 
VE (.CIR CCIRSW_CIRNAMLEN], CIR CCIRST_CIRNAM], .NICE); 
= .NICE + .CIR CCIRSW_CIRNAMLEN); ! Point to free space in buffer after 
! the circuit name which was just copied in 
_TMPDSC COSCSW_LENGTH) = .NICE_TMPDSC CDSC$W_LENGTH) + 4 + .CIR CCIRS$W_CIRNAMLEN); 


Place in Surveillance parameter 
as a coded value 


2 bytes Surviellance parameter ID 
1 byte Surveillance type = coded byte 
1 byte Surveillance value 
CE) <0, 16> = NMASC_PCCN_SUR; 
BEGIN 
BIND 
TYPE = .NICE + 2 : BBLOCK; 
TYPE CNMASV_PTY_COD] = TRUE; ! Surveillance is returned as a coded value 
ives NMASV_PTY_CLEJ = 1; ! The coded value is 1 byte in length 
CE) cote 8> = .CIR CCIRSB_SURVEILI; 


NICE + 4; ' Set pointer to end of buffer where Elapsed Time will be pl 


Place in Glapsed Time parameter 
as a coded multiple 


2 bytes Elasped Time parameter ID . 
1 byte Elasped time type = coded multiple of 5 fields 


; | 
CNF SHOW DECnet Ethernet Configurator Module ibese -1984 02:05:37 AX-11 Bliss-32 V4.0-742 Page 12 
v04-000 show. circuit foreet’alt systems for circuit 14-Sep-19 4 95 :03:8 NICNF. SRCICNF SHOW.B32;1 . 3B 
; or 22 | 1 byte hours type = unsigned decimal word ‘ 
3 £8 558 : ¢ bytes hours value ; 
, oy 559 : byte minutes type = unsigned decimal byte | ‘ 
: «378 0560 : 1 byte minutes value | : 
: 379 828) : 1 byte seconds tyne = unsigned decimal byte : 
; rs $266 1 byte seconds value ' 
: 38¢ 0564 (.NICE) <0, 16> = NMASC_PCCN_ELT; ! Set parameter ID | ; 
ie ai" ba, 
; 385 O86? CODMUL TYP = .NICE + 2: BBLOCK, : 
; $86 8208 HR_TYP’= .NICE + BBLOCK, ; 
; 87 569 MIR_TYP = .NICE + § BRLOCK, ‘ 
3 368 B29 SEC_TYP = .NICE + BBLOCK; | : 
: 390 b27¢ CODMUL_TYP CNMASV_PTY_COD] = TRUE; ! Elapsed Time is returned as a coded ; 
; 391 057 3 CODMUL-TYP CNMASV-PTY-MUL] = TRUE: i “multiple. ; 
3 a08 0574 CODMUL_TYP CNMASV_PTY_CLE] = 3; ! There are three fields in the coded multiple : 
Oped fee : 
: 395 0577 H i Get the current system time, subtract : 
; 396 0578 ! Time of Surveillance start from Current time : 
; $05 4144 } to get negative Delta time : 
; 399 0581 EXECUTE (SGETTIM (TIMADR = CURRENT TIMBUF)); ; 
: 400 p26 SUBM (2, CIR CCIR$Q_ELAPSDTIM), CURRENT _TIMBUF, DELTA_TIMBUF); ‘ 
; t83 Bae? EXECUTE (S$NUMTIM (TIMBUF = TIMBUF, TIMADR = DELTA_TIMBUF)); : 
: 403 0585 HR_TYP CNMASV_PTY_NTY) = NMASC_NTY_DU; ' Uns igned decimal : 
; 404 0586 HR_TYP CNMASV_PTY_NLE) = 2; ' word. : 
3 $33 Beer (.RICE) <32, T6> = .TIMBUF (3); ! Hours : 
: 407 0589 : MIN_TYP LNMASV_PTY_NTY] = NMASC_NTY_DU; ! Unsigned decimal : 
; 408 0590 MIN-TYP CNMASV-PTY_NLE) = 1; i “byte. : 
: 409 0591 (NICE) <56, 85 = TTIMBUF C4); i Minutes ; 
: 411 0898 SEC_TYP CNMASV_PTY_NTY) = NMASC_NTY_DU; ! Unsigned decimal : 
: aig 0594 SEC_TYP CNMASV_PTY_NLE) = 1; ! byte. : 
; 41 0595 (NICE) <72, 85 = TTIMBUF C5); i Seconds ; 
is ae oa | 
: 238 b208 NICE_TMPDSC CDSCSW_LENGTH] = 14 + .NICE_TMPDSC CDSC$W_LENGTH); ‘ 
; 418 9600 SID = .CIR CCIRSL_SIDFLINK); ! Point to first System ID | 3 
; 420 0602 IF (,SID EQL CIR CCIRSL_SIDFLINK]) OR ! There are no ID's collected for this circuit | : 
3: 421 060 ((. INFTYP NEQ NMASC-OPINF STA) AND ! or Summary requested : 
; 4 ; 04 (. INFTYP NEQ NMASC_OPINF_CHA)) ; 
; : ; ret THEN | : 
: 425 oF i Print only circuit info, not system ID's, since either : 
3 ? $ ties there are no ID's collected, or a SHOW SUMMARY was requested. : 
: 4 1 BEGIN 
5 is 18 CNFSBUFR_NICE_MSG (.IRB, NICE_TMPOSC, NICE_BUFLEN); 
; 430 ol¢ RETURN TRUE; 
: 6351 1 
| 
| 


-. 
CNF SHOW DECnet Ethernet Configurator Modul 16-Sep-1984 :05:37 AX-11 Bliss 
v04-000 show circuit Format alt systems for circuit 14- ~tep- 138 95:03: 4 NICNF.SR BaCieN 


C 
0 
4 
sn si fs Peet A ODRESS P. AAM 
990 B: Sot m1. ty \ how _circuit\ 
00000 te 00 a80 eADDRESS P.AAO 


P.AAK 
-EXTRN SYSSGETTIM, SYSSNUMTIM 


3 4 ¢ 614 
; 4 615 ELSE 
> 434 918 ! 
> 435 61 ! Traverse the List of system ID's and format a NICE response 
; 4 $ 218 : for each one. Each one will be appended to a repeat of the 
: : i 213 circuit info already gathered. 
: 439 0621 BEGIN 
: re be ¢ i wate ata? NEQ CIR CCIRSL_SIDFLINK] DO ! For all the System ID's 
: 64 0624 4 
: «44 be 5 4 i - lero the descriptor and allocate a clean buffer for the NICE 
> 444 626 4 : response message. Then copy the message already built for the 
> «4445 0627 4 ' circuit info as the start of the message to which the system ID 
: Pry | Be 8 ? info will be appended. 
: 448 0630 4 CHSFILL (0, DSCSC_S_BLN, NICE_BUFDS 
> 449 0631 4 EXECUTE (CNFSGET 2VM (XREF (NICE BUFLEN) NICE_BUFDSC COSCSA_POINTER])); 
; 450 06 ¢ 4 CHSMOVE (.NICE TRBDSC. tosesw Bye! TH], .NICE_TMPDSC COSCSA_POINTER), 
; «6451 0633 4 »NICE_BUFDSC wii eyint 
: $26 ste : NICE_BUFDSC CDSC$W_LENGTH ERD), _TMPDSC CDOSCSW_LENGTH); 
: 454 0636 4 
; 455 0637 4 ! Append the system ID info to the NICE response, and 
: 456 0638 4 ! buffer the message for later transmission. 
: tt +804 ? ; Then follow List pointer to next system ID. 
: 459 0641 4 SHOW. SYSTEM (. SID. NICE BUF DSC) ; 
: 460 Bote 4 CNF SBUFR nite n G (. nee NICE _BUFDSC, NICE_BUFLEN); 
; 461 0643 4 SID = .SID SIDS LINK 
: re bee END; ! While processing all system ID's for the circuit 
: 464 064 ! Return the buffer which we used to build the circuit info part 
: ree Bote : of the response. 
; 467 0649 EXECUTE (CNFSFREE_VM (ZREF (NICE yiccers NICE_TMPDSC CDSCSA_POINTER])); 
: re bees 3 END; T There are system ID's for this circuit 
: 470 O65¢ RETURN TRUE; 
: «(471 0655 1 END; ! Routine show_circuit 

-PSECT SPLITS,NOWRT ,NOEXE,2 
00 00 52 4F 54 41 52 55 47 49 46 4E 4F = O08 P.AAK: .ASCII <12>\CONF IGURATOR\<0><0><0> 

45 43 41 Oe gr p, AAM: .ASCII \TRACE\ 
BLKB 
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show circuit 


DECnet Ethernet Configurator Module 


Format all systems for circuit 
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SCODES ,NOWRT,2 

Saye R2,R3,R4,R5,R6,R7 
’ SP 

P.AAN 

P.AAL 


#1 
#3, CNFSTRACE 
#0, (SP), #0, #8, NICE_TMPDSC 


#2, CNFSGET_ZVM 


R7, (NICE)+ 
(NICE) 
_TMPDSC 


Be 
wn 
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eee ~mn 
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Me 


(NICE) 


s cwie 
P +m »_ wzom 
oft Mo 


a~Zz 
NRNOABZ—-B——FZ DO Won 


KAKO ZAOO- @H 


en 5 


_# a ( 
TIMBUF+6, S(NI 


03:05:37 YAN-11 BLiss<32 v4.0-74 
:49:54  ENICNF.SRCIONF SHOW.B32; 
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oo Oo0o00OoOoO OOCOooO 
vin PIPL Pere = 
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wr 
SS oe 
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MBUF, DELTA_TIMBUF 
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; Routine Size: 5394 bytes, Routine Base: $CODE$ + 00C6 


H 3 
CNF SHOW DECnet Ethernet Configurator Module 16-Sep-1984 05:37 AX-11 Bliss-32 V4.0-74 Pp 
v04-000 show circuit Formatealt systems for circuit 1328007138 95 :03:8, NICNF. SRCICNF SHOW.632; nae 
06 A 0 BA OOODA BICB2 #48, 6(NICE) : 
06 Ab 04 0 3 FO DE INSV #8 #4, 6(NICE) ; 
07 Ab 0c ar 3 E MOVB TIABUF +8 P (NICE) : 
B A ; A O00E9 BICB2 #48, BNI CE) : 
08 Ab 04 0 ee E INSV #1, #0, #4, 8(NICE) : 
09 Ab OE AE 9 F MOVB.  TIMBUF+10, 9(NICE) ; 
14 =A OF A F ADDW2 #14, NICE’ TMPDSC : 
40 =A p F MOVL 64 (K7), S10 : 
40 A? 1 MOVAB 64(R7 : 
0 56 D1 001 CMPL ; Dd, RO : 
oc 1 107 BEQL 4 ; 
01 oC AC p4 109 CMPL NFTYP, #1 : 
1 100 BEQL x : 
02 0c ac 01 or F CMPL =sINFTYP, #2 : 
11 13 113 EOL «= «A$ : 
7E 80 8F 9A gi 3$ MOVZBL #128, =( : 
18 AE 9F 00119 PUSHAB NICE_TMPDSC : 
04 Ns DD 0011C PUSHL IRB ; 
00006 CF 03 FB OOF CALLS #3, CNFSBUFR_NICE_MSG ; 
60 11 00124 BRB 73 ; 
50 40 A? 4: 0126 4$ MOVAB 64(R7), RO : 
50 56 D1 OO12A CMPL $ID, RO ; 
44 13 00120 BEQL 6$ ; 
08 00 6E ‘4 00 2c 01 F MOVCS #0, (SP), #0, #8, NICE_BUFDSC : 
20 AE 9F 001 PUSHAB NICE _BUFDSC #4 : 
04 AE 0 BF 9A 001 MOVZBL #128> 4(SP) ; 
04 AE OF 0013E PUSHAB 4(SP5 : 
00006 CF 0 Fe 0141 CALLS #2, CNFSGET_ZVM ; 
40 ; 00146 5$: BLBC STATUS, 8$ : 
20 +BE 18 BE 146 AE 28 0014 MOVC3 NICE_TMPDSC, @NICE_TMPDSC+4, @NICE_BUFDSC+4 ; 
1C AE 14 AE BO 00150 MOVW NICE-TMPDSC, NICE_BUFDSC F 
1C «AE 9F 00155 PUSHAB NICE -BUFDSC ; 
36 DD 00158 PUSHL SID ; 
0000v CF 0 FB 1 A CALLS #2, SHOW SYSTEM ; 
7E 80 8F 9A O015F MOVZBL #128, -(SP) F 
20 AE OF 00163 PUSHAB NICE. BUFDSC : 
04 AC DD 00166 PUSHL IRB ; 
00006 ct 0 FB 169 CALLS #3, CNFSBUFR_NICE_MSG ; 
6 6 p 01g MOVL (S{D), SID ; 
B3 11 001 BRB 4$ ; 
18 AE OF 173 6$: PUSH NICE _TMPDSC +4 ; 
04 AE 8 BF 9A 00176 MOVZBL #128> 4(SP) : 
4 AE 9F 00178 PUSHAB 4(SP5 ; 
00006 CF 9 F ve CALLS #2, CNFSFREE_VM ; 
3 E i BLBC status, 8$ : 
0 01 DO 00186 7s: MOVL #1, R ; 
4 00189 8$: RET ; 
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CNF SHOW DECnet Ethernet Configurator Module 1b-5e Sep-19 7:05:37 
v04-000 show. system Format System ID info 300-1382 98: 93: 4 


s 473 654 1 ZSBTTL ‘show eyetem Format System ID info' 

: eee ? 5 ! ROUTINE SHOW SYSTEM (SID, NICEBUF) = 

: 476 6 3 1 !¢¢ 

: 477 228 1! Format the inform-tion in the system ID message stored in 

; 478 659 1! SID and build a NicE message which will be ap pended to the 

3 rt 4 ree : } NICE message for the circuit which is in NICEB 

: rt Dee ; } sid Pointer to buffer containing a system ID message 
3 css beee : nicebuf Descriptor of buffer containing circuit NICE message 
; 485 Deeg 1! Always return success. There is no error checking. 

; 486 0667 1! 

: 487 0668 1 !-- 

: 4488 0669 BEGIN 

3; 489 0670 MAP 

: 490 0671 tt ee : REF BBLOCK, 

3; 491 067 SID : REF BBLOCK; 

; 49 067 LOCAL 

; 49 0674 NICE : REF BBLO 

; 49% 0675 TIMBUF : VECTOR te, WORD); 

: 496 Oey? CNFSTRACE (DBGSC TRACE, SDESCRIPTOR(* TRACE ' - 

: rad pore SDESCRIPTOR T'show_system')); 

3; 499 0680 : NICE = .NICEBUF CDSCSA_POINTER] + .NICEBUF CDOSC$W_LENGTH); 

; 500 0681 

; 501 068 

3 208 068 ! piece in Physical Address parameter 

: 0684 ! a Hex Image 6 

: 504 0685 ' 

; 505 068 ! 2 bytes Physical Address parameter ID 

; 506 068 : 1 byte Physical Address type = Hex Image (HI-6) 
; 507 0688 : 6 bytes Physical Address value 

: 508 0689 ! 

; 509 0690 (.NICE) <0, 16> = NMASC_PCCN_PHA; 

3; 510 0691 BEGIN 

. Bt 69 BIND 

3 21g 69 TYPE = .NICE + 2 : BBLOCK; 

3 31 sey TYPE CNMASV_PTY_NTY] = NMASC_NTY ' returned as a Hex 
; 218 3932 ive NMASV~PTY_NLEJ = NMASC_NLE_ TAGE: i “image. 

; 21g 809 (.NICE) <24 $ = SIDSC_A 

; 51 98 CHSMOVE (SI6 CADRLEN “SID ESiost =CURADRI, (NICE + 4) ); 

3; 518 0699 NICE = 


NICE + SIOSC_A ' Set pointer to end of buffer where next parameter wiil be 


3 
CNF SHOW DECnet Ethernet Configurator Module 18+ ep-1984 02:0 
v04-000 show system Format System ID info 14- ety 7 93: 74 


. 


tf AX-11 BL Aiges -32 v4.0-74 Page 
4 CICNFS 


5: 1 
9: NICNF.SR HOW .B32; (7 


4) 
=O 


Place in Last riots. parameter 
as a coded mult 


Wn 


HR_TYP CNMASV_PTY_NTY] = Wnase -NTY_DU; =! Uns tgned decimal 
HR-TYP CNMASV-PTY_NLE) = ' byt 
(RICE) <64, B> = — TaBUF ' were 


MIN_TYP CNMASV_ pry -NTY] = NMASC_NTY_DU; ! Unsigned decimal 
MIN-TYP CNMASV-PTY_NLE) = 1; b 


Ww 
= 


(NICE) <80, Xs” : TTImBuF C4); i Minute 

SEC_TYP CNMASV pry -NTY)] = NMASC_NTY_DU; ! Uns igned decimal 
SEC” TYP NMASY PT YINLE) = 1; i “byte 

(NICE) <96, 85 = TTImMBUF (5); | Sotena 


END; 
NICE = .NICE + 13; 


. ' 

: 7 i 

: 7 i 

; | 7 i 

: 526 fae ! 

s 325 re ! byte Last Report type = coded multiple of 5 fields 

3 é 6 706 : 1 byte Day yee = unsigned decimal byte 

: 7 707 : 1 byte Day va 

; 528 708 ! 1 byte Month type = Coded byte 

: 288 0709 ! 1 byte Month coded value 

; 530 0710 ! 1 byte hour cype = unsigned decimal byte 

: 23) 0711 ! 1 byte hour va 

3 ¢ arg ! 1 byte minutes type = unsigned decimal byte 

3 33 071 ! 1 byte minutes value 

; 534 0714 : 1 byte seconds type = unsigned decimal byte 

: 33? 14F } 1 byte seconds value 

. Sar 0717 (.NICE) <0, 16> = NMASC_PCCN_LRP 

; 538 0718 BEGIN 

; 539 0719 BIND 

; 540 0720 ee TYP = .NICE + es BBLOCK, 

: 541 0721 TYP = .NICE + :% BBLOCK, 

; o¢§ 07 3 N-TYP = .NICE + BBLOCK, 

3; «(54 07 HR_TYP = .NICE + 7: BBLOCK 

> 544 0724 MIR_TYP = .NICE + 9 : BBLOCK, 

3 ec? 7 ? SEC-TYP = .NICE + 11 : BBLOCK; 

3 547 0727 CODMUL_TYP CNMASV_PTY_COD] = TRUE; ' Last Report is returned as a coded 
: 548 0728 CODMUL_TYP CNMASV_PTY_MUL] = TRUE; i multiple 

3 208 4 , CODMUL-TYP CNMASV_PTY_CLE) = 5; ' There oe “five fields in the coded multiple 
3 32) of 1 EXECUTE (S$NUMTIM (TIMBUF = TIMBUF, TIMADR = SID CSID$Q_LSTREPORT)) ); 
3 228 07 5 DAY_TYP CNMASV_PTY_NTY]) = NMASC -NTY_DU; ! Unsigned decimal 

; 554 0734 DAY TYP CNMASV- PTY ~NLE ' byte. 

: 335 07 5 (NICE) <32, 85 = TTIMBUF (32; i Day 

: 557 07 $ MON_TYP ate 8 PTY_COD] = TRUE; ' Month is returned as a coded value 
3 338 0738 MON” TYP PTY_CLE 1; ! contained in 1 byte. 
; 559 0739 (NICE) cane ts = TTImauF (4); i Month 

; 560 0740 

: 36) $563 

: 388 08 

2 64 744 

3 365 745 

; 566 07 $ 

; 567 7 

: 568 748 

; 569 749 

3 2 0 750 

: 7 

s ; 4 f 4 


SUV BB BS BE EE EE EMMI II inononoron 


ANNO 


] 
| 
: bytes Last Report parameter ID 
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gt Ethernet Configurator Module 16- 
Format System ID info -Sep-1984 
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coco“ 


Place in Maintenance Version parameter 
as a coded multiple 


byte Maintenance Version type = coded multiple - 3 fields 


: bytes Maintenance Version parameter ID 
1 byte Version Number type = unsigned decimal byt 
1 byte Version Number whlue ° = 
1 byte ECO number + pl = unsigned decimal byte 
: Bree ECO number va 
e 

1 byte User ECO value 

CE) <0, 16> = NMASC_PCCN_MVR 

BEGIN 

BIND 
coon TYP = .NICE + 2 : BBLOCK, 

N_TYP"= .NICE + : BBLOCK, 

tne TYP = .NICE + 5 : BBLOCK, 
UER_TYP = .NICE + 7: BBLOCK; 

CODMUL_TYP CNMASV_PTY_COD] = TRUE; 

CODMUL— TYP NMASV_ PTY” MUL] = s phue: 

CODMUL— TYP CNMASV— “PTY_CLE 

VN_TYP CNMASV_ au -NTY] = NMASC_NTY_DU; 

VN-TYP CNMASVP Y-NLEJ = 1; 

(RICE) <32, a ; “.SI1D CS16$B_MOPVER); 
EN_TYP CNMASV_PTY NTN} = NMASC_NTY_DU; 
EN-TYP CNMASV-PTY_NLEJ = 1; 
(.RICE) <48, 8> =".SID CS16$B_MOPECO]; 


UEN TYE CNMASV_ PTY _NTY] = NMASC_NTY_DU; 


UEN-TYP CNMASV~PTY-NLE 
(NICE) <64, 85 = 7SID [S1D$B_MOPUSRECO]; 


; NICE = .NICE + 9; 


: r 


<o- 


User ECO number type = unsigned decimal byte 


Weveugnents Version is returned as a coded 


ple 
i There are three fields in the coded multiple 
! Unsigned decimal 
byte. 


: Ops tgned decimal 


! Unsigned decimal 
byte 
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3 
CNF SHOW DECnet Ethernet Configurator Module WF. 1984 :05:37 
v04-000 show.system Format Wystes ID info 12-80-1382 95 :03:8 
3; 617 795 ! 
; 618 79 ' Place in Functions parameter 
3 238 a as a coded multiple 
: 621 138 ! : bytes Functions parameter ID 
; © ¢ 800 ' byte Functions type = coded multiple of u 
: ° g3) n bytes Function type = Coded byte 
; 625 td ! up to 16 functions permitted 
3; 6 $ 0804 ! 
: bse SBoe IF .SID CSIDSB_NUMFUNC) NEQ 0 
8 Oe Fe : 
; 630 0808 BEGIN 
; 631 0809 BIND 
3 O38 tty CODMUL_TYP = Mite + 2 : BBLOCK 
3 oe? bata FUNCTIONS = SID S1D$W_FUNCTIONS) : BITVECTOR (1 
; 635 oBi8 (.NICE) <0, 16> = NMASC_PCCN_FCT; ! Pl 
; 636 0814 CODMUL_TYP ENMASV_PTY COD ="TRUE; i Re 
: 637 Bale CODMUL_TYP CNMASV_PTY_MUL] = TRUE; $ 
3; 639 0817 3 CODMUL_TYP CNMASV_PTY_CLE] = .SID CSID$B_NUMFUNC); 
; 640 0818 NICE = .NICE + 3; 
3 641 0819 ; 
3; ¢ 0820 INCR_ INDEX FROM 0 TO SIDSC_MAXFUNC = 1 DO 
3 p85) 4 BEGIN 
3 08 ¢ 4 BIND 
; b8 i ? FUN_TYP = .NICE : BBLOCK; 
3 0825 4 IF .FUNCTIONS C.INDEX) 
$ 028 $ 4 THEN 
3 bas 5 BEGIN 
; 828 5 FUN_TYP peasy TY £08 = TRUE; ' Fu 
; 0809 5 FUN-TYP CNMASV~PTY-CLE) = 1; \ 
; 0830 5 (.NICE) <8, 8>"= . INDEX; ' Pl 
: 0831 5 NICE = .NICE + 2; ! ad 
3 ttt 4 END; 
3 0833 3 
3 0834 2 


AX-11 Bi is ° 
NICNF.SRCJCN 


p to 16 fields 


6]; 


ace in Function paramter ID 
port is returned as a coded 
multiple. 


! 16 fields are permitted in the coded multi 


nections are returned as a coded value 
contained in 1 byte. 

ace Function value in NICE message 
vance to end of NICE buffer 


DECnet Ethernet Confi paver Mo 


ODOOOCCOCOOOOCOOCOO 
‘69 C> G9 OD 09 Cd CD Cd Cd Cd 09 0d CD CD CD 09 C9 C9 CD CD CO COCD OD CD 


PUPP BB BB PEE EE 


WN SO OONAUNE WN QOONAUNE WN OOONIO 


SSsSeee 


LS 


Ro 


NOUSWN—OO@ 


Bee Ge Fe ee Ge Fe Ge Se Be Fe Se Se BH Se Ge Ge SF Ge Ge Se Se Oe woe Se Se FHS Se SESH Ss Se Se Se Sees Se Se Sees Sees 


SOOOOCOCOCOOOOOOOOSOSOOOOOoOOoOO: 


0 00 09 09 Go 09 09 0D Co 
SSN NNO 


800 8 P.AAP: .LONG 3 

000° tt) ee 3 

6D 65 74 73 79 73 SF 77 6F ; P.AAS: 0! \show. system\ 3 
A 


Format gystem ID us 16 sep-1984 95:03 :8, NICHE. 


wry in Hardware Address parameter 
a Hex Image 6 


pytes Hardware Address parameter ID 
byte Hardware 1 type = Hex Image (HI-6) 
1 byte Image Length 

6 bytes Hardware Address value 


<0, 16> = NMASC_PCCN_HWA; 


PR re me wre we we mem mee 


< 
GIN 
ND 
TYPE = .NICE + : BBLOCK; 

PE [NMASV_PTY_NTY] = NMASC_NTY ' returned as a Hex 
Pe NMASV-PTY"NLE] = NMASC— “NLEZ “TAGE: i “image 

) 

E 


24,8> = SIDSC_ADRL Es ! of length 6 
S1O8C_A ADRLEN 328, sipst LHRDWADR], (.NICE + 4) ); 
ICE +74 + SIOSC_A ! Set pointer to end of buffer where next parameter 


Place in Device Type parameter 
as a coded value 


: bytes Device Type parameter ID 
byte Device Type type = coded byte 
1 byte Device Type code 


(NI <0, 16> = NMASC_PCCN_DTY; 


IN 
D 

TYPE = .NICE + : BBLOCK; 
E CNMASV_PTY_COD - TRUE; ' Device Type is returned as a fecee. value 
E NMASV-PTY-CLE) = 1; ! The coded value is 1 byte in length 


(NICE) <24 & = = .SID CSI¥$8_DEVICE); 
NICE = .NICE + ! Set pointer to end of buffer where Elapsed Time will be pl 


NICEBUF henee taaeetl = .MICE = .NICEBUF COSCSA_POINTER); 
RETURN TRUE; 
€ND; 


C 
B 
B 
T 
T 
E 
C 


i Routine show system 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
45 43 41 52 54 P.AAQ: xt t \TRACE\ ; 


goons BRA panna: SEONG 1 : 


SOARS ‘Nuestra contsoretr tots CHM AGRE, MCU mf 


16S 
v04-000 show.system Format gysten ID info 14-$ 


«PSECT SCODES,NOWRT,2 
O1FC 00000 SHOU OYSTER 


: ORD Saye R2,R3,R4,R5,R6,R7,RB : : 

SE 10 ¢2 §UuBL2 #16, SP : ; 

0000' CF 9F PUSHAB P.AAR i 067 ; 

0000' cr F PUSHAB P.AAP : 067 ; 

} DD 0000D PUSHL ui : ; 

00006 CF 03 FB F CALLS #3, CNFSTRACE : : 

7 04 at gD 14 mova 1 : 069 ; 

6 68 3¢ 18 MOVZWL (RBS, NICE ; 06 : 

6 4 AB £0 00018 L2 4(RBS, NICE ; : 

66 8 8F : 1 MOVZBW #12 (NICE) 3 0690 : 

02 Ab 02 04 2 FO 000 INSV We ha, #2, 2(NICE) + 0694 : 
03 a6 F 8A 000 B1cB2 «#15, 2tniceé) : 0695 : 

03 Ab 6 0 0 0 MOVE. #6, (NICE) + 0697 ; 

04 Ab 10 A? 6 1 MOVC3 #6, 16(R7), 4(NICE) + 0698 ; 

56 A £0 037 ADDL2 #10, NICE ; 699 ; 

66 82 F : O3A MOV7BW #1 §. (NICE) + 0717 ; 

02 A6 C F 88 000 BISB #19 2(NICE) : 0728 : 

02 Ab 06 00 05 FO 0004 NSV #5, #0, #6, 2(NICE) + 0729 : 
16 A? 9F 0004 PUSHAB 22(R7) + 0731 : 

04 AE OF 4c PUSHAB TIMBUF : ; 

000000006 00 FB 4F CALLS #2, SYSSNUMTIM : ; 

01 i 036 BLBS STATUS, 1$ : : 

03 Ab 30 8A 0005A 1$: BICB2 #48, 3(NICED : 0733 ; 

03 Ab 04 00 01 F 5e INSV. #1, #0, #4, 3(NICED : 07 ; 
04 Ab 06 AE 9 64 MOVB LIRGUF $4. 4 WICE) : 07 3 ; 

05 Ab 80 ar 8 9 BISB2 #i2 5 (NICE) : 07 ; 

0S Ab 06 00 iB. E INSV 1, #0, 5 (NICE) : 0738 : 
06 Ab 02 ar 9 4 VB s- TIMBUF42, 4(NICE) + 0739 : 

07 AG 30 8a 00079 BICB2 #48, 7(NICE) : 0741 F 

07 Ab 04 00 01 FO 0007 INSV 1, #0, #4, 7(NICE) + 074 ; 
08 Ab 06 Ar 90 MOVB IMBUF 46, B(NICE) + 074 ; 

09 Ab ; BA BICB2 #48, g(nice) + 074 3 

09 «A6 04 00 1 FO INSV. #1, #0, #4, 9(NICE) ; ; 
OA Ab 08 ar 9 9 MOVB TIABUE +8 {O(NICE) : 074 3 

0B Ab 04 =" 2 BPO 0009 Freee pee ah ee eeS  cutce) : : 
OC Ab OA AE 9 H | MOVE TIMBUF410, 12(NICE) ; ; 

6 0 ¢ Ag ADDL2 #13, NICE ; ; 

6 4621 BF Hy A MOVW =f gor (NICE)+ ; ; 

64 CO BF A BISB2 # (NICE) ; ; 

86 06 00 ; f B INSV. #3, #0, #6, (NICE)+ 3 ; 

6 BA Bice2 #46, hice : ; 

86 04 1 FO A INSV #1, #0, #4, (NICE)+ ; ; 

1€ A? 3 B MOVB 30{R7) . (NICE)+ ; : 

6 39 A 000¢ BICB2 448, NICE) : : 

86 04 1 Ff ¢ INSV #1, #0, #4, (NICE)+ 3 3 

6 1f OAT CB MOVB 31(R7); (NICeE)+ ; : 

66 30 A OOOCE BICB2 #48, (NICE) ; ; 

86 04 F Og INSV. #1, #0, #4, (NICE) ; ; 

86 0 A? D MOVB ; (r7);, (NICE)+ ; : 

A7 DB TSTB (R7) ; : 


y 11 Ol igang a el od 
NICNF ..SRCJCNFSHOW.B32; 


AX- 


PS oe ee 8S Fe FS HS 6S Fe FS FS Fe HS Oe Oe HS ES OS Oe He Oe FES Oe FS FS OG HS OS FES ES ES ESSE FS HSCS HSCS SSE *S*S FSFE HS*S*S FSFE HSE "SHE ta *S*artere*s 


ee Re eeu en 
SEE NUCINIOCIMANI ST ST TOMNNNOOO 
@0.0000 00 00. 00 00 00 00 00 0000 00 00 00 00 0000 
Soooooooocooooooooo 


Ter er er er eT ee ee ee 


+ 
~~ 
uw 
vw 
~ — _~ ~ + 
2 ~ w w ~ 
~~ FA ww Ld ve we 
mm LY 4 a ~ ow 
+ ba _ za za + +x 
~ wo . 2tAanw _-~ = 6 ZaRw 
w =: A YR cut rw hw 
uA nan ww vw a un vw 
—~uw = Gus 4M se Ste lL 8 
Zvo ~uUOCe xXZNVeWnR ZVOZY 
eR wR Zw Be Or WY ew 
2 mz ~a Zeaw 2 2 
~ 6 ~~ 2 2@Bs ween s 8 8 
NA . Oo eh TYOZO On~ CO 
o «xx SB xX OR Me «CO HRS 
Ouagwuweo wi © . eco «amc 
oow~waam samo wm = oOowW wd + 
AMR MM 2 Be SOI OOD EN eK ON 
TRVamM-r--RBV—-RBBVVVVVBZVBVBVVMszBe 
oe 
N Nm [vey Nu MEN Cw m 
A3O>y OF0 13 >OOrY 130>03 
SSN ZVYY SO>wv > [> a> KV Sa>e 
woe2 JO-—ZO0O0O2Z-0O000O2050w 
OFO—-VCOO—F az —-OFFEIEO—-BvEa 
A AA 
N mvs 


WOW we OSE VOOR MO ur DOsSTou 


te ee eee ele fof oj oiolololelolololeoleololq) 
LOOOOOCOOCOCOOOOOOOCOOOOoooO 


urator Module 
ystem ID info 


g 


Format 


DECnet Ethernet Confi 


show _system 


CNF SHOW 


v04-000 


MODOT -DOOMOOSO <ODOOCDCOMoy. 
— MOu Owedu Ou Ou DOowv@MnoduF® LOO 
WOuukO0u-OUuuwu OOdKuur fOr 
MDD LWUNDONODOOCOCOCODDO < zo 
No oOo ~ Two wv 
Nenr @o N ona wo 
w w w 
w wT w 
DOO POCO COOTOOrR.OWOVOO0O00O 
Oooo <aooonwoc”caiacanwoooon 
N um 
~N ooo 
ovwaogw~w ~~ oOo @ 
oo fc w Oo <= o oO 
wv 
Oo 
~o oO Oo ~o 
oO oc <= oo 
~ 
oO 


317 bytes, Routine Base: $CODE$ + 0250 


3; Routine Size: 


108 


; Compi 


: Elapsed Ttae: 
3 Lines/CPU Min: 


Show system “Format System ID inte 1860-1988 93:25:3, — ENTcNr. SRcTenF SHOu:B3271 Page af} 


pee 1 END ! End of module CNFSHOW 
79 0 ELUDOM 


PSECT SUMMARY 


: Name Bytes Attributes 

: SPLITS a ¢ wovece NOWRT, RD ,NOEXE,NOSHR, LCL, REL, bathed b Seg bbe | 
; SOWNS 16 NOV WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 909 NOVEC.NOWRT, RD. EXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 
; Library Statistics 

SR i eee ee ee, Symbols -oc----- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 a 0 581 00:01.0 

; 7$255$DUA28: CSHRLIBINMALIBRY.L32;1 887 23 2 47 00:00.7 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CNFSHOW/OBJ=OBJ$:CNFSHOW MSRC$: CNF SHOW/UPDATE=(ENHS: CNF SHOW) 


909 coge : 188 data bytes 
00:39.7 


2282 
; Lexemes/CPU-Min: 19848 
: penecy Paees 


182 pages 


tion Complete 


ENT CORPORATION 
ND PROPRIETARY 


m0280 vax7vms v4_o C * 


D=8 


